

global dataDir "~/Dropbox/BITs-Women's Rights/BITs Paper/Data"

use "$dataDir/bits_labor.dta", clear

/** Prepping the data **/

rename cowcode ccode

sort ccode year


merge 1:1 ccode year using "$dataDir/JIRD Data", gen(JIRD)

merge 1:1 ccode year using "$dataDir/vDem", gen(vDem)


xtset ccode year

gen lnpop =log(pop)
ren fdi_inflow_unctad fdi_inflow_gdp
gen lntrade = log(trade)
gen lngdp_capita = log(gdp_capita)
gen ilo2= C87incidence+ C98incidence
gen LawPos_update = Law_mosley_rescale
gen PracticePos_update = Practice_mosley_rescale
replace LawPos_update = FRAME_FACB_Law_Rescaled_Pos if year>2002
replace PracticePos_update = FRAME_FACB_Practice_Rescaled_Pos if year>2002
gen GAP_update = LawPos_update-PracticePos_update
sum LawPos_update PracticePos_update GAP_update


gen lallbits=L.allbits_update
gen licsid=L.bits_icsid21_update
gen lumbrella=L.bits_umbrella_ratified
gen lilo = L.ilo2

xtset ccode year

/* Table 1 */

*** Cumulative Bits

*Econ Rights
cmp setup
cmp(wecon = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  


*Pol Rights
cmp setup
cmp(wopol = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict  lcolewomparl wopol_first eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  
 


***Umbrella Clause

*Econ Rights
cmp setup
cmp(wecon = lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_umbrella_ratified = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

*Pol Rights
cmp setup
cmp(wopol = lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_umbrella_ratified = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

***ICSID 
*Econ Rights 
cmp setup
cmp(wecon = licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  
 
*Pol Rights 
cmp setup
cmp(wopol = licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

 
/*** Figure 1 ***/

/* substantive effects for cumulative bits */

/* political rights */

 /* recode dv category */
 
 foreach loc in wecon wopol{
 
 capture drop `loc'_dum1
 gen `loc'_dum1=0 if `loc'<2
 replace `loc'_dum1=1 if `loc'>1
 }
 

set more off
 capture drop bbt*
 estsimp probit wopol_dum1 lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy ///
 lagfemtertiary lcivilconflict lcolewomparl wopol_first lamerica ssafrica asia nafrme if developing==1, robust genname(bbt)
 
 
capture drop probVALUE_pol_cum
capture drop probLOW_pol_cum
capture drop probHIGH_pol_cum
capture drop xaxis
generate probVALUE_pol_cum=.
generate probLOW_pol_cum=.
generate probHIGH_pol_cum=.
generate xaxis=.
 
 
set more off

local a=0	
local b=1



while `a' <=130 { 

setx lgdplog 7.76 lgdpgrowth1 3.45 lpolity2 10 lagcedawdummy 1 lagfemtertiary 43 ///
lcivilconflict 0  lcolewomparl 9 wopol_first 1  lamerica 0  ssafrica 0 ///
  asia 0 nafrme 0 /* set the control variables at their mode and mean */

replace xaxis=`a' in `b'

setx lallbits `a'

capture drop pred
simqi, prval(1) genpr(pred) /* generate prediction using simulation in clarify */


_pctile pred, p(2.5,97.5)  	/* calculate the 95% confidence interval */
replace probLOW_pol_cum = r(r1) in `b'
replace probHIGH_pol_cum = r(r2) in `b'

summarize pred /* calculate the mean prediction */ 

replace probVALUE_pol_cum = r(mean) in `b'


local a = `a' + 5			/* generate the next value of the xaxis */
local b = `b' + 1				/* iterate the loop */
	}		
	
 /* economic rights */

 
 set more off
 capture drop bbt*
 estsimp probit wecon_dum1 lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy ///
 lagfemtertiary lcivilconflict lcolewomparl wecon_first lamerica ssafrica asia nafrme if developing==1, robust genname(bbt)
 
 
capture drop probVALUE_econ_cum
capture drop probLOW_econ_cum
capture drop probHIGH_econ_cum

generate probVALUE_econ_cum=.
generate probLOW_econ_cum=.
generate probHIGH_econ_cum=.

 
 
set more off

local a=0	
local b=1



while `a' <=130 { 

setx lgdplog 7.76 lgdpgrowth1 3.45 lpolity2 10 lagcedawdummy 1 lagfemtertiary 43 ///
lcivilconflict 0  lcolewomparl 9 wecon_first 1 lamerica 0  ssafrica 0 ///
  asia 0 nafrme 0 /* set the control variables at their mode and mean */

replace xaxis=`a' in `b'

setx lallbits `a'

capture drop pred
simqi, prval(1) genpr(pred) /* generate prediction using simulation in clarify */


_pctile pred, p(2.5,97.5)  	/* calculate the 95% confidence interval */
replace probLOW_econ_cum = r(r1) in `b'
replace probHIGH_econ_cum = r(r2) in `b'

summarize pred /* calculate the mean prediction */ 

replace probVALUE_econ_cum = r(mean) in `b'


local a = `a' + 5				/* generate the next value of the xaxis */
local b = `b' + 1				/* iterate the loop */
	}		
	
	

/* plot the predicted probability */ 
 
 
# delimit ;
	twoway (rspike probLOW_pol_cum probHIGH_pol_cum xaxis)
	(scatter probVALUE_pol_cum xaxis,
	 msymbol(triangle))
	(rspike probLOW_econ_cum probHIGH_econ_cum xaxis) 
	(scatter probVALUE_econ_cum xaxis, msymbol(circle)), 
		ytitle("") 
		xtitle("Cumulative BITs") xlabel(0(20)130)
		legend(col(2) order(2 "Political Rights" 4 "Economic Rights")size(vsmall) pos(6))
		xsize(4) ysize(3) scale(1.1) name(cat1, replace) nodraw  ;
	# delimit cr

/* substantive effects for umbrella clause */
 
  /* political rights */ 
  set more off
 capture drop bbt*
 estsimp probit wopol_dum1 lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy ///
 lagfemtertiary lcivilconflict lcolewomparl wopol_first lamerica ssafrica asia nafrme if developing==1, robust genname(bbt)
 
 
capture drop probVALUE_pol_umb
capture drop probLOW_pol_umb
capture drop probHIGH_pol_umb
capture drop xaxis
generate probVALUE_pol_umb=.
generate probLOW_pol_umb=.
generate probHIGH_pol_umb=.
generate xaxis=.
 
 
set more off

local a=0	
local b=1



while `a' <=100 { 

setx lgdplog 7.76 lgdpgrowth1 3.45 lpolity2 10 lagcedawdummy 1 lagfemtertiary 43 ///
lcivilconflict 0  lcolewomparl 9 wopol_first 1  lamerica 0  ssafrica 0 ///
  asia 0 nafrme 0 /* set the control variables at their mode and mean */

replace xaxis=`a' in `b'

setx lumbrella `a'

capture drop pred
simqi, prval(1) genpr(pred) /* generate prediction using simulation in clarify */


_pctile pred, p(2.5,97.5)  	/* calculate the 95% confidence interval */
replace probLOW_pol_umb = r(r1) in `b'
replace probHIGH_pol_umb = r(r2) in `b'

summarize pred /* calculate the mean prediction */ 

replace probVALUE_pol_umb = r(mean) in `b'


local a = `a' + 5			/* generate the next value of the xaxis */
local b = `b' + 1				/* iterate the loop */
	}		
	
 
  /* economic rights */
 set more off
 capture drop bbt*
 estsimp probit wecon_dum1 lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy ///
 lagfemtertiary lcivilconflict lcolewomparl wecon_first lamerica ssafrica asia nafrme if developing==1, robust genname(bbt)
 
 
capture drop probVALUE_econ_umb
capture drop probLOW_econ_umb
capture drop probHIGH_econ_umb

generate probVALUE_econ_umb=.
generate probLOW_econ_umb=.
generate probHIGH_econ_umb=.

 
 
set more off

local a=0	
local b=1



while `a' <=100 { 

setx lgdplog 7.76 lgdpgrowth1 3.45 lpolity2 10 lagcedawdummy 1 lagfemtertiary 43 ///
lcivilconflict 0  lcolewomparl 9 wecon_first 1 lamerica 0  ssafrica 0 ///
  asia 0 nafrme 0 /* set the control variables at their mode and mean */

replace xaxis=`a' in `b'

setx lumbrella `a'

capture drop pred
simqi, prval(1) genpr(pred) /* generate prediction using simulation in clarify */


_pctile pred, p(2.5,97.5)  	/* calculate the 95% confidence interval */
replace probLOW_econ_umb = r(r1) in `b'
replace probHIGH_econ_umb = r(r2) in `b'

summarize pred /* calculate the mean prediction */ 

replace probVALUE_econ_umb = r(mean) in `b'


local a = `a' + 5				/* generate the next value of the xaxis */
local b = `b' + 1				/* iterate the loop */
	}		
	
	

/* plot the predicted probability */ 

 
# delimit ;
	twoway (rspike probLOW_pol_umb probHIGH_pol_umb xaxis)
	(scatter probVALUE_pol_umb xaxis,
	 msymbol(triangle))
	(rspike probLOW_econ_umb probHIGH_econ_umb xaxis) 
	(scatter probVALUE_econ_umb xaxis, msymbol(circle)), 
		ytitle("") 
		xtitle("BITs with Umbrella Clause") xlabel(0(20)100)
		legend(col(2) order(2 "Political Rights" 4 "Economic Rights")size(vsmall) pos(6))
		xsize(4) ysize(3) scale(1.1) name(cat2, replace) nodraw ;
	# delimit cr
	
	
	 /* substantive effects for icsid clause */
 
  /* political rights */
  
  set more off
 capture drop bbt*
 estsimp probit wopol_dum1 licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy ///
 lagfemtertiary lcivilconflict lcolewomparl wopol_first lamerica ssafrica asia nafrme if developing==1, robust genname(bbt)
 
 
capture drop probVALUE_pol_ics
capture drop probLOW_pol_ics
capture drop probHIGH_pol_ics
capture drop xaxis
generate probVALUE_pol_ics=.
generate probLOW_pol_ics=.
generate probHIGH_pol_ics=.
generate xaxis=.
 
 
set more off

local a=0	
local b=1



while `a' <=85 { 

setx lgdplog 7.76 lgdpgrowth1 3.45 lpolity2 10 lagcedawdummy 1 lagfemtertiary 43 ///
lcivilconflict 0  lcolewomparl 9 wopol_first 1  lamerica 0  ssafrica 0 ///
  asia 0 nafrme 0 /* set the control variables at their mode and mean */

replace xaxis=`a' in `b'

setx licsid `a'

capture drop pred
simqi, prval(1) genpr(pred) /* generate prediction using simulation in clarify */


_pctile pred, p(2.5,97.5)  	/* calculate the 95% confidence interval */
replace probLOW_pol_ics = r(r1) in `b'
replace probHIGH_pol_ics = r(r2) in `b'

summarize pred /* calculate the mean prediction */ 

replace probVALUE_pol_ics = r(mean) in `b'


local a = `a' + 5			/* generate the next value of the xaxis */
local b = `b' + 1				/* iterate the loop */
	}		
	
 
 /* economic rights */
 set more off
 capture drop bbt*
 estsimp probit wecon_dum1 licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy ///
 lagfemtertiary lcivilconflict lcolewomparl wecon_first lamerica ssafrica asia nafrme if developing==1, robust genname(bbt)
 
 
capture drop probVALUE_econ_ics
capture drop probLOW_econ_ics
capture drop probHIGH_econ_ics

generate probVALUE_econ_ics=.
generate probLOW_econ_ics=.
generate probHIGH_econ_ics=.

 
 
set more off

local a=0	
local b=1



while `a' <=85 { 

setx lgdplog 7.76 lgdpgrowth1 3.45 lpolity2 10 lagcedawdummy 1 lagfemtertiary 43 ///
lcivilconflict 0  lcolewomparl 9 wecon_first 1 lamerica 0  ssafrica 0 ///
  asia 0 nafrme 0 /* set the control variables at their mode and mean */

replace xaxis=`a' in `b'

setx licsid `a'

capture drop pred
simqi, prval(1) genpr(pred) /* generate prediction using simulation in clarify */


_pctile pred, p(2.5,97.5)  	/* calculate the 95% confidence interval */
replace probLOW_econ_ics = r(r1) in `b'
replace probHIGH_econ_ics = r(r2) in `b'

summarize pred /* calculate the mean prediction */ 

replace probVALUE_econ_ics = r(mean) in `b'


local a = `a' + 5				/* generate the next value of the xaxis */
local b = `b' + 1				/* iterate the loop */
	}		
	
	

/* plot the predicted probability */ 
 
# delimit ;
	twoway (rspike probLOW_pol_ics probHIGH_pol_ics xaxis)
	(scatter probVALUE_pol_ics xaxis,
	 msymbol(triangle))
	(rspike probLOW_econ_ics probHIGH_econ_ics xaxis) 
	(scatter probVALUE_econ_ics xaxis, msymbol(circle)), 
		ytitle("") 
		xtitle("BITs with ICSID Clause") xlabel(0(20)85)
		legend(col(2) order(2 "Political Rights" 4 "Economic Rights")size(vsmall) pos(6))
		xsize(4) ysize(3) scale(1.1) name(cat3, replace) nodraw ;
	# delimit cr
	
/* combine graph */
	
	grc1leg cat1 cat2 cat3, ycommon  ///
	row(1) xsize(10) ysize(3) scale(1.1) ///
	l1("Probability of having greater or guaranteed rights") ///
	imargin(tiny) graphregion(margin(zero)) plotregion(margin(tiny)) ///
	legendfrom(cat2) position(6) name(g1, replace) 


/* Table 2 */

/*cumulative BIT */
list probVALUE_pol_cum probVALUE_econ_cum if xaxis==0 /*when BIT=0*/
list probVALUE_pol_cum probVALUE_econ_cum if xaxis==20 /*when BIT=20*/

/*umbrella clause*/

list probVALUE_pol_umb probVALUE_econ_umb if xaxis==0 /*when BIT=0*/
list probVALUE_pol_umb probVALUE_econ_umb if xaxis==20 /*when BIT=20*/

/*icsid clause*/

list probVALUE_pol_ics probVALUE_econ_ics if xaxis==0 /*when BIT=0*/
list probVALUE_pol_ics probVALUE_econ_ics if xaxis==20 /*when BIT=20*/


/*** Appendix ***/


/* Figure A1 */


 histogram wecon,  percent barwidth(.7) addlabel ///
xlabel (0 `""Major Violations" "(Category 0)""' 1 `""Limited and" "Not Enforced" "(Category 1)""' ///
 2 `""Greater Rights with" "Some Enforcements" "(Category 2)""' ///
 3 `""Guaranteed and" "Fully Enforced" "(Category 3)""', labsize(3)) ytitle("") xtitle("") ylab(0(20)80) ///
 title("Economic Rights", size(medlarge)) name(wecon, replace) nodraw
 
 
 histogram wopol, percent barwidth(.7) addlabel ///
xlabel (0 `""Major Violations" "(Category 0)""' 1 `""Limited and" "Not Enforced" "(Category 1)""' ///
 2 `""Greater Rights with" "Some Enforcements" "(Category 2)""' ///
 3 `""Guaranteed and" "Fully Enforced" "(Category 3)""', labsize(3)) ytitle("") xtitle("") ylab(0(20)80) ///
 title("Political Rights", size(medlarge)) name(wopol, replace) nodraw

graph combine wecon wopol, l1(Percent) xsize(13) ysize(5.5) scale(1.1)


/* Figure A2 */


twoway histogram allbits_update if allbits_update<60, discrete percent  ///
xtitle("") ylab(0(10)50) ytitle("") title("Cumulative BITs", size(medium)) name(allbits, replace) nodraw 	
	
 twoway histogram bits_umbrella_ratified if bits_umbrella_ratified<60 , ///
 discrete percent ///
xtitle("") ylab(0(10)50) ytitle("") title("BITs with Umbrella Clause", size(medium)) name(umbrella, replace) nodraw 	

 twoway histogram bits_icsid21_update if bits_icsid21_update<60 , ///
 discrete percent ///
xtitle("") ylab(0(10)50) ytitle("") title("BITs with ICSID Clause", size(medium)) name(icsid, replace) nodraw 			
	
graph combine allbits umbrella icsid, l1(Percent) row(1) xsize(13) ysize(5.5) scale(1.1)



/* Table A2.1 */

*** Cumulative Bits

*Econ Rights

cmp setup
cmp(wecon = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first lwecon1 lwecon2 lwecon3 eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

* Pol Rights

cmp setup
cmp(wopol = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict   lcolewomparl wopol_first lwopol1 lwopol2 lwopol3 eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

  
 *** Umbrella clause
 
 *Econ Rights
 
 cmp setup
cmp(wecon = lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first lwecon1 lwecon2 lwecon3 eeurop lamerica ssafrica asia nafrme ) ///
 (bits_umbrella_ratified = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

* Pol Rights

cmp setup
cmp(wopol = lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first lwopol1 lwopol2 lwopol3 eeurop lamerica ssafrica asia nafrme ) ///
 (bits_umbrella_ratified = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

 
 *** ICSID Clause
 
  *Econ Rights
  
  cmp setup
cmp(wecon = licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first lwecon1 lwecon2 lwecon3 eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

 * Pol Rights
 
 cmp setup
cmp(wopol = licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first lwopol1 lwopol2 lwopol3 eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  


 /* Table A2.2 */
 
 *** Cumulative Bits

*Econ Rights

cmp setup
cmp(wecon = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first budhismdom catholicdom hinduismdom islamdom  eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  


*Pol Rights
cmp setup
cmp(wopol = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl wopol_first   budhismdom catholicdom hinduismdom islamdom  eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  


*** Umbrella Clause

*Econ Rights
cmp setup
cmp(wecon = lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first  budhismdom catholicdom hinduismdom islamdom  eeurop lamerica ssafrica asia nafrme) ///
 (bits_umbrella_ratified = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  


*Pol Rights
cmp setup
cmp(wopol = lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl wopol_first budhismdom catholicdom hinduismdom islamdom  eeurop lamerica ssafrica asia nafrme) ///
 (bits_umbrella_ratified = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  


**** ICSID Clause

*Econ Rights 
cmp setup
cmp(wecon = licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first  budhismdom catholicdom hinduismdom islamdom  eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

 
*Pol Rights 
cmp setup
cmp(wopol = licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first  budhismdom catholicdom hinduismdom islamdom  eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  


 /* Table A2.3 */
 
 *** Cumulative Bits

*Econ Rights
cmp setup
cmp(wecon = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first L.hard_lag L.soft_lag eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

 

*Pol Rights
cmp setup
cmp(wopol = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict  lcolewomparl wopol_first L.hard_lag L.soft_lag eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  


*** Umbrella Clause


*Econ Rights
cmp setup
cmp(wecon = lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first L.hard_lag L.soft_lag eeurop lamerica ssafrica asia nafrme ) ///
 (bits_umbrella_ratified = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  


*Pol Rights
cmp setup
cmp(wopol = lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first L.hard_lag L.soft_lag eeurop lamerica ssafrica asia nafrme ) ///
 (bits_umbrella_ratified = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

**** ICSID Clause

*Econ Rights 
cmp setup
cmp(wecon = licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first L.hard_lag L.soft_lag eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

 
*Pol Rights 
cmp setup
cmp(wopol = licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first L.hard_lag L.soft_lag eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  


 /* Table A2.4 */

 *** Cumulative Bits

*Econ Rights
cmp setup
cmp(wecon = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if oecd==0, nolr ind( $cmp_oprobit $cmp_cont) robust  


*Pol Rights
cmp setup
cmp(wopol = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict  lcolewomparl wopol_first eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if oecd==0, nolr ind( $cmp_oprobit $cmp_cont) robust  


*** Umbrella Clause

*Econ Rights
cmp setup
cmp(wecon = lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_umbrella_ratified = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft i.trend ) if oecd==0, nolr ind( $cmp_oprobit $cmp_cont) robust  


*Pol Rights
cmp setup
cmp(wopol = lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_umbrella_ratified = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend ) if oecd==0, nolr ind( $cmp_oprobit $cmp_cont) robust  


**** ICSID Clause

*Econ Rights 
cmp setup
cmp(wecon = licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if oecd==0, nolr ind( $cmp_oprobit $cmp_cont) robust  

 
*Pol Rights 
cmp setup
cmp(wopol = licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend) if oecd==0, nolr ind( $cmp_oprobit $cmp_cont) robust  


 /* Table A2.5 */

 /* creating women's economic rights using V-Dem database */
 
 capture drop women_econright
 gen women_econright=(v2clprptyw+v2clslavef)/2
 
  *** Cumulative Bits
 
 *Econ Rights
 cmp setup
cmp(women_econright= lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_cont $cmp_cont) robust  
 outreg2 using myreg.doc, replace ctitle(Model 1)  alpha(0.001, 0.01, 0.05)

 
 *Pol Rights
cmp setup
cmp(v2x_gender = lallbits lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict  lcolewomparl eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_cont $cmp_cont) robust  

*** Umbrella Clause


  *Econ Rights
 cmp setup
cmp(women_econright= lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  eeurop lamerica ssafrica asia nafrme) ///
 (bits_umbrella_ratified = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_cont $cmp_cont) robust  
 
  *Pol Rights
  cmp setup
cmp(v2x_gender= lumbrella lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  eeurop lamerica ssafrica asia nafrme) ///
 (bits_umbrella_ratified = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_cont $cmp_cont) robust  
 
 
**** ICSID Clause

 
  *Econ Rights
  cmp setup
cmp(women_econright= licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  eeurop lamerica ssafrica asia nafrme) ///
 (bits_icsid21_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_cont $cmp_cont) robust  
 
  *Pol Rights
   cmp setup
cmp(v2x_gender= licsid lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  eeurop lamerica ssafrica asia nafrme) ///
 (bits_icsid21_update = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_cont $cmp_cont) robust  
 
 
   /* Table A2.6 */

 
  * Create dummy categories for the 3 measures of BIT 
 
 foreach loc in allbits_update bits_umbrella_ratified bits_icsid21_update{
 
 capture drop `loc'_dum
 gen `loc'_dum=.
 replace `loc'_dum=0 if `loc'==0
 replace `loc'_dum=1 if `loc'>0
 
 }
 
 
 
 *** Cumulative Bits
 
 
*Econ Rights
cmp setup
cmp(wecon = L.allbits_update_dum lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update_dum = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

 
*Pol Rights
cmp setup
cmp(wopol = L.allbits_update_dum lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict  lcolewomparl wopol_first eeurop lamerica ssafrica asia nafrme) ///
 (allbits_update_dum = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft  i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  
 

*** Umbrella Clause

*Econ Rights
cmp setup
cmp(wecon = L.bits_umbrella_ratified_dum lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_umbrella_ratified_dum = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  



*Pol Rights
cmp setup
cmp(wopol = L.bits_umbrella_ratified_dum lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_umbrella_ratified_dum = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

 
**** ICSID Clause
*Econ Rights 
cmp setup
cmp(wecon = bits_icsid21_update_dum lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wecon_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update_dum = lgdplog1 lilo  lgdpgrowth ltradelog lpolity21  lagleft i.trend ) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  
 
 
*Pol Rights 
cmp setup
cmp(wopol = bits_icsid21_update_dum lgdplog lgdpgrowth1 lpolity2 lagcedawdummy lagfemtertiary lcivilconflict lcolewomparl  wopol_first eeurop lamerica ssafrica asia nafrme ) ///
 (bits_icsid21_update_dum = lgdplog1 lilo lgdpgrowth ltradelog lpolity21 lagleft i.trend) if developing==1, nolr ind( $cmp_oprobit $cmp_cont) robust  

 
 
